home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8910a.d64 / kalender ii (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  966b  |  21 lines
  1. 1 CLR:POKE53280,7:POKE53281,0:INPUT"[147][158][205]ONAT";M:INPUT"[202]AHR";J
  2. 2 N=INT(365.25*(J+(M<3)))+INT(30.6*(M+1-(M<3)*12))+1-2:N=N-INT(N/7)*7:RESTORE
  3. 3 DIMM$(12),M(12):FORI=1TO12:READM$(I):NEXTI:FORI=1TO12:READM(I):NEXTI
  4. 4 REM--------HAUPTROUTINE-------
  5. 5 IFJ/4=INT(J/4)THENS=1:IFM=2THENM(M)=M(M)+1
  6. 6 PRINT"[147]   [167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
  7. 7 FORI=1TO6:PRINT"   [167]                               [165]"
  8. 8 PRINT"   [167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
  9. 9 NEXT:PRINT"   [167]                               [165]"
  10. 10 PRINT"    [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  11. 11 PRINT"";M$(M);"[159]";J
  12. 12 PRINT"[150][211]O[157][157][205]O[157][157][196]I[157][157][205]I[157][157][196]O[157][157][198]R[157][157][211]A":W=1
  13. 13 X=5+N*2
  14. 14 FORI=1TO7-N:POKE211,10:POKE214,X:SYS58640:PRINTW:W=W+1:X=X+2:NEXTI
  15. 15 FORX=14TO30STEP4:FORY=5TO17STEP2:POKE211,X:POKE214,Y:SYS58640
  16. 16 IFW<=M(M)THENPRINTW:W=W+1:NEXTY,X
  17. 17 FORI=9TO34:POKE55296+I+5*40,10:NEXTI:POKE198,0:WAIT198,1:GETG$:IFG$=" "THEN1
  18. 18 DATA"[202]ANUAR","[198]EBRUAR","[155][205]AERZ","[193]PRIL","[205]AI","[129][202]UNI","[129][202]ULI","[129][193]UGUST"
  19. 19 DATA"[158][211]EPTEMBER","[158][207]KTOBER","[152][206]OVEMBER","[196]EZEMBER"
  20. 20 PRINT"[147]":DATA31,28,31,30,31,30,31,31,30,31,30,31
  21.